home *** CD-ROM | disk | FTP | other *** search
/ The Original Shareware 1.1 / The Original Shareware (WeMake CDs)(Volume 1.1)(CDs, Inc)(1993).iso / 32 / megatrek.zip / TRANSFER.ASC < prev    next >
Text File  |  1982-07-04  |  640b  |  17 lines
  1. 50000 J3=0:IF D4(12)<>0 THEN 50130
  2. 50010 INPUT"NUMBER OF UNITS TO SHIELDS";Z3
  3. 50020 IF Z3<0 THEN GOTO 50200
  4. 50030 IF E1+S3-Z3>0 THEN 50060
  5. 50040 PRINT"SCOTT HERE-  'WE ONLY HAVE";FNR(E1+S3);"UNITS LEFT.'"
  6. 50050 GOTO 50200
  7. 50060 E1=E1+S3-Z3:S3=Z3:PRINT"--ENERGY TRANSFER COMPLETE--"
  8. 50070 PRINT"(SHIP ENERGY=";FNR(E1);"    SHIELD ENERGY=";FNR(S3);")"
  9. 50080 J3=1
  10. 50090 T1=.1:P5=(K3+4*C3)/48:IF P5<.1 THEN P5=.1
  11. 50100 IF P5>RND(1)THEN GOSUB 1000
  12. 50110 IF A2<>0 THEN GOTO 50200
  13. 50120 GOSUB 9000:GOTO 50200
  14. 50130 PRINT"TRANSFER PANEL DAMAGED."
  15. 50200 IF J3=0 THEN GOTO 70 ELSE GOTO 585
  16. 60000 REM end of overlay
  17. SUB 9000:GOTO 5020